10 INPUT"[147]STARTING ADDRESS";SA$:SA=VAL(SA$)
20 FORI=SATOSA+121:READA:POKEI,A:N=N+A:NEXT
30 IFN<>16955THENPRINT"[147]ERROR IN DATA":STOP
40 A=INT((SA+11)/256):B=SA+11-A*256:C=INT((SA+46)/256):D=SA+46-C*256
50 POKESA+1,B:POKESA+6,A:POKESA+34,D:POKESA+39,C
60 PRINT"SYS"SA"TO USE":NEW
70 DATA169,11,141,34,3,169,192,141,35,3,96,165
80 DATA123,201,2,240,26,165,122,133,251,165,57,133
90 DATA181,165,58,133,182,169,0,133,183,169,46,141
100 DATA6,3,169,192,141,7,3,76,243,243,133,252
110 DATA165,183,208,18,230,183,169,145,32,210,255,165
120 DATA181,133,20,165,182,133,21,76,167,198,165,183
130 DATA201,1,208,9,230,183,56,165,251,229,95,133
140 DATA253,132,254,196,253,240,13,200,200,177,95,240
150 DATA9,164,254,165,252,76,26,199,198,254,169,95
160 DATA133,252,169,26,141,6,3,169,199,141,7,3,208,231